home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmfbarrier.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  781b  |  42 lines
  1.  
  2. /* $Id: Pvmfbarrier.c,v 1.1 1997/06/27 16:13:50 pvmsrc Exp $ */
  3.  
  4. #ifdef WIN32
  5. #include "..\..\src\pvmwin.h"
  6. #endif
  7. #include "pvm3.h"
  8. #include "pvm_consts.h"
  9.  
  10. #ifdef __WATCOMC__
  11. #include "watforstr.h"
  12. void __fortran
  13.  
  14. PVMFBARRIER (group_str, count, info)
  15. WatcomFortranStr* group_str;
  16. int *count, *info;
  17. {
  18.    char* group_ptr = group_str->strP;
  19.    int   group_len = group_str->len;
  20. #else
  21. void __stdcall
  22. PVMFBARRIER (group_ptr,group_len, count, info)
  23. char * group_ptr; int group_len;
  24. int *count, *info;
  25. {
  26. #endif
  27.  
  28.    char tgroup[MAX_GRP_NAME + 1];
  29.  
  30.    /*
  31.     * Copy the group name to make sure there's
  32.     * a NUL at the end.
  33.     */
  34.    if (ftocstr(tgroup, sizeof(tgroup), group_ptr, group_len)){
  35.       *info = PvmBadParam;
  36.       return;
  37.    }
  38.  
  39.    *info = pvm_barrier(tgroup, *count);
  40. }
  41.  
  42.